#Correloplot
head(iris)
corriris <- iris
corriris$Species <- as.integer(corriris$Species)
corr <- round(cor(corriris),2)
ggcorrplot(corr, method = "circle",  lab = TRUE, hc.order = TRUE)

Using the correlation matrix, we begin to see high correlations amongst many categories. We’ll inspect the Length Vs Width first. I expect there to be a reasonably standardised positive correlation on the scatte graph based on this data.

plot_ly(
  x = iris$Sepal.Width,
  y = iris$Sepal.Length,
  name = iris$Species,
  type = "scatter",
  symbol = iris$Species
)
No scatter mode specifed:
  Setting the mode to markers
  Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode
No scatter mode specifed:
  Setting the mode to markers
  Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode
#Scatter Plots (Base R)
qplot(iris$Petal.Length, iris$Petal.Width, colour=iris$Species)

qplot(iris$Petal.Length, iris$Sepal.Length, colour=iris$Species)

qplot(iris$Petal.Width, iris$Sepal.Length, colour=iris$Species)

#Histogram
ggplot(iris, aes(x=Petal.Width)) + 
  geom_histogram(color="White", fill="Red", binwidth=0.3)

LS0tDQp0aXRsZTogIlZpc3VhbGlzYXRpb24gUHJhY3RpY2UiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KYGBge3J9DQpkYXRhKGlyaXMpDQppbnN0YWxsLnBhY2thZ2VzKCJwbG90bHkiKQ0KbGlicmFyeShwbG90bHkpDQpsaWJyYXJ5KGdnY29ycnBsb3QpDQoNCmBgYA0KDQpgYGB7cn0NCg0KI0NvcnJlbG9wbG90DQoNCmhlYWQoaXJpcykNCmNvcnJpcmlzIDwtIGlyaXMNCmNvcnJpcmlzJFNwZWNpZXMgPC0gYXMuaW50ZWdlcihjb3JyaXJpcyRTcGVjaWVzKQ0KY29yciA8LSByb3VuZChjb3IoY29ycmlyaXMpLDIpDQpnZ2NvcnJwbG90KGNvcnIsIG1ldGhvZCA9ICJjaXJjbGUiLCAgbGFiID0gVFJVRSwgaGMub3JkZXIgPSBUUlVFKQ0KDQoNCg0KYGBgDQoNClVzaW5nIHRoZSBjb3JyZWxhdGlvbiBtYXRyaXgsIHdlIGJlZ2luIHRvIHNlZSBoaWdoIGNvcnJlbGF0aW9ucyBhbW9uZ3N0IG1hbnkgY2F0ZWdvcmllcy4gV2UnbGwgaW5zcGVjdCB0aGUgTGVuZ3RoIFZzIFdpZHRoIGZpcnN0LiBJIGV4cGVjdCB0aGVyZSB0byBiZSBhIHJlYXNvbmFibHkgc3RhbmRhcmRpc2VkIHBvc2l0aXZlIGNvcnJlbGF0aW9uIG9uIHRoZSBzY2F0dGUgZ3JhcGggYmFzZWQgb24gdGhpcyBkYXRhLg0KYGBge3J9DQoNCiNTY2F0dGVyIFBsb3RseSBDaGFydA0KDQpwbG90X2x5KA0KICB4ID0gaXJpcyRTZXBhbC5XaWR0aCwNCiAgeSA9IGlyaXMkU2VwYWwuTGVuZ3RoLA0KICBuYW1lID0gaXJpcyRTcGVjaWVzLA0KICB0eXBlID0gInNjYXR0ZXIiLA0KICBzeW1ib2wgPSBpcmlzJFNwZWNpZXMNCikNCg0KYGBgDQoNCmBgYHtyfQ0KI1NjYXR0ZXIgUGxvdHMgKEJhc2UgUikNCg0KcXBsb3QoaXJpcyRQZXRhbC5MZW5ndGgsIGlyaXMkUGV0YWwuV2lkdGgsIGNvbG91cj1pcmlzJFNwZWNpZXMpDQpxcGxvdChpcmlzJFBldGFsLkxlbmd0aCwgaXJpcyRTZXBhbC5MZW5ndGgsIGNvbG91cj1pcmlzJFNwZWNpZXMpDQpxcGxvdChpcmlzJFBldGFsLldpZHRoLCBpcmlzJFNlcGFsLkxlbmd0aCwgY29sb3VyPWlyaXMkU3BlY2llcykNCg0KYGBgDQoNCmBgYHtyfQ0KI0hpc3RvZ3JhbQ0KDQpnZ3Bsb3QoaXJpcywgYWVzKHg9UGV0YWwuV2lkdGgpKSArIA0KICBnZW9tX2hpc3RvZ3JhbShjb2xvcj0iV2hpdGUiLCBmaWxsPSJSZWQiLCBiaW53aWR0aD0wLjMpDQpgYGANCg0KDQoNCg==